home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / satellit / sattaim / sattaim.bas < prev   
BASIC Source File  |  1984-07-24  |  3KB  |  57 lines
  1. 10 REM Program to generate aiming angles for geosynchronous satellites
  2. 11 REM Originally written by M. Glen Worthington, WA7GKM, of
  3. 12 REM of U.S. Satellite Corp., inc., and modified to run under
  4. 13 REM Microsoft Basic by Scott Bidstrup, WA7UZO.
  5. 14 REM This program generates aiming angles for all
  6. 15 REM international communications satellites.
  7. 20 X1=0
  8. 30 INPUT "Location Name";A$
  9. 40 INPUT "Magnetic Deviation in degrees";MD
  10. 45 PRINT "For southern hemisphere locations, proceed degrees with minus sign."
  11. 50 INPUT "Latitude in degrees,minutes,seconds";D,M,S
  12. 55 PRINT "Enter ALL longitudes in degrees west of Greenwich (Prime) Meridian."
  13. 60 INPUT "Longitude in degrees,minutes,seconds";DN,MN,SN
  14. 70 LT=D+(M/60)+(S/3600)
  15. 80 LT=LT*.01745
  16. 90 LN=DN+(MN/60)+(SN/3600)
  17. 100 LPRINT "        TABLE OF EARTH STATION ANTENNA AIMING ANGLES"
  18. 110 LPRINT:LPRINT:LPRINT
  19. 120 LPRINT "LOCATION: ";A$
  20. 130 LPRINT "Latitude ";D;",";M;",";S
  21. 140 LPRINT "Longitude ";DN;",";MN;",";SN
  22. 145 LPRINT "Magnetic deviation ";MD;" degrees":LPRINT:LPRINT
  23. 150 LPRINT "SATELLITE";TAB(60);"MAGNETIC"
  24. 160 LPRINT "POSITION";TAB(11);"SATELLITE";TAB(30);"AZIMUTH";
  25. 170 LPRINT;TAB(45);"ELEVATION";TAB(60);"HEADING":LPRINT
  26. 175 LPRINT "**** Satellite positions are shown in degrees west longitude *****"
  27. 177 RESTORE
  28. 180 FOR P1=1 TO 34:READ P,S$
  29. 190 L=LN-P:C1=L:L=L*.01745
  30. 200 F=COS(L)*COS(LT)
  31. 210 AZ=-ATN(F/SQR(-F*F+1))+(3.14159/2)
  32. 220 A1=(SIN(1.5705-AZ)-.1513)/COS(1.5705-AZ)
  33. 230 E=ATN(A1)
  34. 240 G=-(TAN(LT)/TAN(AZ)):E=E*57.3*10:E=INT(E)/10
  35. 250 C=-ATN(G/SQR(-G*G+1))+(3.14159/2):C=C*57.3*10:C=INT(C)/10
  36. 255 IF C1<0 THEN C=360-C
  37. 260 LPRINT P;TAB(11);S$;TAB(30);C;TAB(45);E;TAB(60);C-MD
  38. 265 X1=X1+1:IF X1=34 THEN 330
  39. 270 NEXT P1
  40. 275 DATA 350.0,"ECS 1",347.0,"ECS 2",338.3,"Gorizont 3",327.0,"Raduga 11"
  41. 277 DATA 325.0,"Raduga 9",314.0,"Raduga 6",307.0,"Gorizont 5"
  42. 280 DATA 303.0,"Intelsat 5-F1",300.0,"Intelsat 5-F7",298.0,"Intelsat 5-F5"
  43. 283 DATA 283.0,"Palapa A02",278.0,"Palapa A01",275.0,"Raduga 10"
  44. 285 DATA 275.0,"Gorizont 6",270.0,"Gorizont 2",266.0,"Insat 1B"
  45. 287 DATA 252.0,"Palapa B01",247.0,"Palapa B02",242.0,"Palapa B03"
  46. 290 DATA 231.0,"Sakura CS2A",226.0,"Sakura CS2B",187.0,"Intelsat 4A-F6"
  47. 295 DATA 184.0,"Intelsat 4A-F3",181.0,"Intelsat 5-F8",53.0,"Intelsat 4-F1&7"
  48. 300 DATA 34.5,"Intelsat 5-F2",31.0,"Intelsat 4A-F1",27.4,"Intelsat 5-F2&F3"
  49. 305 DATA 18.5,"Intelsat 5-F6",14.5,"Gorizont 4",14.0,"Gorizont 7"
  50. 310 DATA 11.45,"Symphonie 1",11.33,"Symphonie 2",1.0,"Intelsat 4-F8&F4"
  51. 330 LPRINT "*****************************************************************"
  52. 340 LPRINT "Minimum visibility requires an elevation of +5 degrees"
  53. 345 LPRINT "Reasonable antenna size and LNA temperature require +10 degrees"
  54. 350 LPRINT CHR$(12)
  55. 360 RESTORE
  56. 370 GOTO 20
  57.